home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / DUPCHECK.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  768 b   |  23 lines
  1. * dupcheck.sig 08/18/83
  2. * this module checks to see if there are records with the same lastnames
  3. * you can make it a tighter test with relative ease.
  4. SAVE TO temp1
  5. RELEASE ALL
  6. GOTO TOP
  7. STORE t TO more
  8. DO WHILE more .AND. (.NOT. EOF)
  9.     * display something to read while searching for duplicates
  10.     ERASE
  11.     @ 07,10 SAY 'SEARCHING for duplicate last names'
  12.     * save the current name, in upper case, for comparison
  13.     STORE !(lname) TO oldlname
  14.     * move to the next record to compare
  15.     SKIP
  16.     * if match is found and eof has not been reached
  17.     * let user look at both and decide what to do
  18.     IF oldlname = !(lname) .AND. (.NOT. EOF)
  19.         DO duprec.sig
  20.     ENDIF
  21. ENDDO
  22. RESTORE FROM temp1
  23.